data <-read.csv("data.csv") data$Sanitation<-data$Households.using.improved.sanitation.facility2 data$Sanitation<-data$Sanitation/100 data1 <- aggregate(Sanitation~State.1, data=data, FUN=mean)